home *** CD-ROM | disk | FTP | other *** search
/ Publication 50 / Publication_50_2003_Civitas_de_Disk_2_of_2_Side_B.d64 / bas8x8 1 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  284b  |  16 lines
  1. 0 print"[147]":
  2. 1 poke53272,24
  3. 10 a=12288:b=1:c=1024:d=64:f=7
  4. 30 ifb=9thenf=3:rem i
  5. 31 ifb=27thenf=3:rem .
  6. 32 ifb=28thenf=4:rem ,
  7. 33 ifb=29thenf=3:rem !
  8. 34 ifb=30thenf=3:rem '
  9. 39 e=0:fori=0to7
  10. 40 forx=0tof
  11. 50 pokec+i*40+x,peek(a+(b*d)+e):e=e+1
  12. 60 nextx
  13. 70 nexti
  14. 80 poke198,0:wait198,1:print"[147]";
  15. 90 b=b+1:f=7:goto30
  16.